home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / pkey12_1.zip / BN.LSP < prev    next >
Text File  |  1992-09-13  |  350b  |  12 lines

  1. ;Add block name by picking block
  2. ;
  3. ;
  4. (defun C:bn()
  5. (princ "\nAdd block name to drawing.")
  6. (setq pt(cadr(entsel"\nSelect Block:")))
  7. (setq e1(ssget pt)) 
  8. (setq e2 (entget (ssname e1 0)))
  9. (setq blname (cdr(assoc 2 e2)))
  10. (setq pt1 (getpoint"\nSelect point for block title:"))
  11. (command "text" "c" pt1 "" blname))
  12. (princ "\nType BN to execute.)